home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / bonus.arc / IDLE.LSP < prev    next >
Encoding:
Text File  |  1986-03-05  |  1.2 KB  |  46 lines
  1.  
  2. ;       The IDLE command
  3.  
  4. (defun *ERROR* (s)
  5.         (redraw)
  6.         (grtext)
  7. )
  8.  
  9. (defun c:idle ()
  10.         (expand 100)
  11.         (setq vc (getvar "viewctr"))
  12.         (setq cx (car vc))
  13.         (setq cy (cadr vc))
  14.         (setq vs (/ (getvar "viewsize") 2))
  15.         (setq xmin (- cx vs))
  16.         (setq xmax (+ cx vs))
  17.         (setq ymin (- cy vs))
  18.         (setq ymax (+ cy vs))
  19.         (setq xdir (/ vs 10) ydir xdir)
  20.         (setq cx (+ cx (* xdir 7)))
  21.         (setq cy (- cy (* ydir 3)))
  22.         (grclear)
  23.         (grtext -1 "          That's entertainment!")
  24.         (grtext -2 "Press CANCEL to stop.")
  25.         (setq lp (list cx cy))
  26.  
  27.         (while t
  28.            (setq nx (+ cx xdir))
  29.            (if (or (> nx xmax) (< nx xmin))
  30.               (progn
  31.                  (setq xdir (- xdir))
  32.                  (setq nx cx)
  33.               )
  34.            )
  35.            (setq ny (+ cy ydir))
  36.            (if (or (> ny ymax) (< ny ymin))
  37.               (progn
  38.                  (setq ydir (- ydir))
  39.                  (setq ny cy)
  40.               )
  41.            )
  42.            (setq cx nx cy ny)
  43.            (grdraw lp (setq lp (list nx ny)) -1)
  44.         )
  45. )
  46.